StemBiomassVsDBH Function

public function StemBiomassVsDBH(dbh, n, as, ns) result(ws)

relationship between stem biomass andDBH (Diameter at Brest Height).

Reference:

Peter Sands, Adaptation of 3-PG to novel species : guidelines for data collection and parameter assignment, Technical Report 141, EQ. 8 http://3pg.sites.olt.ubc.ca/files/2014/04/3-PG-guidelines.TR141.pdf

Arguments

Type IntentOptional Attributes Name
real(kind=float), intent(in) :: dbh

diameter at brest height (cm)

real(kind=float), intent(in) :: n

number of trees
real(kind=float), intent(in) :: as

scaling coefficient
real(kind=float), intent(in) :: ns

scaling exponent

Return Value real(kind=float)

stem biomass (t)


Source Code

FUNCTION  StemBiomassVsDBH &
!
(dbh, n, as, ns) &
!
RESULT (ws)


IMPLICIT NONE

! Arguments with intent(in):
REAL (KIND = float), INTENT(IN) :: dbh !!  diameter at brest height (cm) 
REAL (KIND = float), INTENT(IN) :: n !!  number of trees
REAL (KIND = float), INTENT(IN) :: as !!  scaling coefficient
REAL (KIND = float), INTENT(IN) :: ns !!  scaling exponent

!local declarations:
REAL (KIND = float) :: ws !!  stem biomass (t)

!------------end of declaration------------------------------------------------ 

! dbh = ( ws / (n * as) ) ** (1. / ns)  

RETURN
END FUNCTION StemBiomassVsDBH